#! /usr/bin/env perl
# author: maxiao
# date: 2023-03-07 12:31
# description: 测试从数组中提取索引号、值

use utf8;

@array = qw / 学习 运动 骑行 阅读 健身 /;

print "使用while结合each操作符，提取哈希的键值对";
while ( ($index, $item) = each @array ) {
    print "position $index of value is $item\n";
}

print "使用while实现同样的效果\n";
$max = $#array;
$ind = 0;
while ( $ind <= $max ) {
    print "$ind ---> @array[$ind]\n";
    $ind += 1;
}

